home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_361 / xcolor-lib / demo_sources / demo_iii.s < prev    next >
Text File  |  1992-05-06  |  2KB  |  71 lines
  1.  
  2. ;   ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  3. ;   ­­                                                                ­­
  4. ;   ­­                   DEMO III - XColor library                    ­­
  5. ;   ­­                                                                ­­
  6. ;   ­­                                                                ­­
  7. ;   ­­                     by Roger Fischlin                          ­­
  8. ;   ­­                        Steigerwaldweg 6                        ­­
  9. ;   ­­                        6450 Hanau 7                            ­­
  10. ;   ­­                        West Germany                            ­­
  11. ;   ­­                                                                ­­
  12. ;   ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  13. ;   ­­    To run this demo the xcolor library must be available !     ­­
  14. ;   ­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­­
  15.  
  16. ;
  17. ; This small demo will turn the pointer colour into antique
  18. ; (Only on the aktive screen).
  19. ;
  20.  
  21.  
  22.  
  23.     incdir    "fh1:include/"            ; path may be different
  24.     include    "exec/exec_lib.i"
  25.     include    "intuition/intuitionbase.i"
  26.     include    "intuition/intuition.i"
  27.     include    "intuition/intuition_lib.i"
  28.  
  29.  
  30.  
  31.     include    "fh1:Color/XColor.i"
  32.  
  33.  
  34.  
  35.  
  36.     include    "misc/easystart.i"        ; I love the Workbench !
  37.  
  38.  
  39.  
  40.     move.l    #XC_VERSION,d0        ; open library
  41.     lea.l    XColorName(pc),a1
  42.     CALLEXEC    OpenLibrary
  43.     tst.l    d0
  44.     beq    NoLibrary
  45.     move.l    d0,_XColorBase
  46.  
  47.     move.l    d0,a0        ; XColor has already opened
  48.     move.l    XCb_IntuitionBase(a0),a0    ; the Intuition-Library - so why should I
  49.     move.l    ib_ActiveScreen(a0),a0    ; it a second time ????                    
  50.  
  51.     lea.l    sc_ViewPort(a0),a0    ; a0 ^ViewPort
  52.     move.l    #17,d0        ; pointer colours : 17,18,19
  53.     moveq.l    #3,d1
  54.  
  55.     CALLXCOLOR    MakeAntique
  56.  
  57.     move.l    XCb_IntuitionBase(a6),a6    ; remakeDisplay
  58.     jsr    _LVORemakeDisplay(a6)
  59.  
  60.     move.l    _XColorBase,a1        ; close library
  61.     CALLEXEC    CloseLibrary
  62. NoLibrary    moveq.l    #0,d0
  63.     rts
  64.  
  65. XColorName    XCOLORNAME
  66. _XColorBase    dc.l    0
  67.  
  68.  
  69.  
  70.  
  71.